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I *================== 1 =z======5 e gj Ln test case== 2 ===== is =============5=Ba«a»====* / 

/* >» K<< + J 

Call SwitchEC "EC1" 

CONFIGURATION-OO 

RESTART_VTAM= "YES " 

ARCDEFLT= " YES " 

ARM="NO M 

Call Hpcs_entry 

/* load the database (s) using sharelevel 3 */ 
DATABASES = M DJK " 
ShareDB-" YES " 

Call Hpcs_load_databases "3 " 
' Call Hpcs_Start_IRLMs_21 

/* Cold start IMS TM_DB region on ALL system(s) */ 

/* CQS will be started and the default model is SMQ$C19X. */ 

/* The following IMS parms will be used if they are not set by the */ 

/* user in IMSPARMS: */ 

/* IRLM^Y, VSPEC=HP, IMSID=IMSx */ 

/* SHAREDQ==%%x, DC=C0x */ 

/* note: x is 1,2, or 3 depending on which CEC */ 

/* DLINM=HPC%CSA% (if DBDLIST or PSBLIST is specified in HPENTRY) */ 
/★★it******************************************************************* ^ 

CFNAMES1= 'CFNAMES, CFIRLM=LT01, CFVSAM=, CF0SAM==OSAMSESXI 1 

CFNAMES2= ,, NO" 

DATABASES 5 *" DJK " 

SHARER="NO" 

HYPER= M NO" 

I MS LOC AL= " N " 

RESLIB= M C" 

PROCNAME= " DE FAULT " 

PARM1= M M 

PARM2=" " 

VSPEC="DEFAULT" 

MODE L= " DE FAU LT " 

Call Start_IMS_on_all_systems 

Call Start_Tran_Scenario_l "LEAVE=NO NTRANS=1000 ON=ALL STARTAPL=ALL" 
Call Start_Tran_Scenario_l "LEAVE=NO NTRANS=500 ON=ALL START APL=ALL" 

Call Stop_all_IMSs " 
Call Hpcs_exit 

I ★ £s ==== -— = — ==== — — ===== — - === — enc j test case— 522 "" 555 ™—™ 5 ! 3 ™" 3 ™™* / 
EXIT 0 

INCLUDE "HPCSSUB" 

/*-=========■============ HPTC Translation summary ==================== * / 

/* Number of lines written = ...176 */ 

/* Number of + + + errors - 0 */ 

/*==:===============„=== £ nc i Translation summary ===================>=*/ 
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=begln test case======================== */ 

-»> EC1 «< •/ 



Call SwitchEC "ECl" 
CONFIGURATION=30 
RESTART_VTAM="YES" 
ARCDEFLT S "YES" 
ARM="NO" 
Call Hpcs_entry " " 

/* load the database(s) using sharelevel 3 
DATABASES"" DJK " 

ShareDB="YES" Q1f) 

Call Hpcs_load_databases "3 " ^~ 
Call Hpcs_Start_IRLMs_21 " " 

I* Cold start IMS TM_DB region on ALL system(s) */ 

/* CQS will be started and the default model is SMQ$C1 9X. V 

r The following IMS parms will be used if they are not set by the */ 

r user in IMSPARMS: */ 

r IRLM=Y, VSPEC=HP, IMSID=IMSx •/ 

/* SHAREDQ=%%x. DC=COx V 

r note: x Is 1 ,2, or 3 depending on which CEC */ 
r DLINM=HPC%CSA% (if DBDLIST or PSBLIST is specified in HPENTRY) V 

CFNAMES1= 'CFNAMES, CFIRLM=LT01, CFVSAM= CFOSAM=OSAMSESXI' 

CFNAMES2="NO ,, 

DATABASES"" DJK " 

SHARER="NCr 

HYPER="NO" 

IMSLOCAL="N" 

RESLIB— "C" 

PROCNAME-'DEFAULT" 

PARM1=" " 

PARM2=" " 

VSPEC="DEFAULT' 

MODEL-'DEFAULT" 

Call Start_IMS_on_all_systems 

Call Start_Tran_Scenario_1 "LEAVE=NO NTRANS=1000 ON=ALL STARTAPL=ALL" 
Call Start_Tran_Scenario_1 "LEAVE=NO NTRANS=500 ON=ALL STARTAPL=ALL" 

Call Stop_allJMSs " " 
Call Hpcs_exit " " 

/"=======================end test case=========================== */ 

EXIT o 

INCLUDE "HPC$SUB" 

/*===================:HPTC Translation summary==================== */ 

/* Number of lines written = ...176 */ 

/* Number of +++ errors = 0 */ 

/*==========«========>==End Translation summary============a==B==== -/ 
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